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t 
* COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
* DIGITAL EQUIPMENT CORPORATION, MAYHARD. MASSACHUSETTS. 
* ALL RIGHTS RESERVED. 
* THIS SOFTWARE Is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
* INCLUSION OF tHe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
* COPIES THEREOF MAY No BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
* TRANSFERRED. 
® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
* CORPORATION. 
* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
EILEEN Sa RATT NER RA EN ARTA EE TT TN 

v03-004 fveret Jake VanNoy 10-APR-1984 

Add UNBIND constants. 
v03-003 JLV0334 Jake VanNoy 28-F EB-1984 
Add new constants. 
v03-002 JLv0293 28-JUL-1983 


Added FLG$ a "anslaik STSADEF. Add read 
verify and upline broadcast symbols. 


v03-001 MHB0091 Mark Bramhall 33-Mar-1983 
Added constant MAXMSG. 


MODULE SRTPADDEF; 
CONSTANT maxmsg EQUALS 1050; { Maximum Link data message size 


AGGREGATE AST_BLOCK STRUCTURE PREFIX ASTS; 


STATE LONGWORD; /* AST ROUTINE (STATE) 

10S8 QUADWORD ; /* 1088 

OPCODE WORD; /* orate (VMS RTT mode) 

OFFSET WORD; /* OFFSET (CTERM) 

BUFSIZ WORD; /* BUFFER SIZE (CTERM) 

ODATA_ LONGWORD; /* OUTPUT DATA BUFFER (CTERM) 
ITALST LONGWORD; /* ADDRESS OF ITEM LIST FOR READ 


END; 
AGGREGATE CTERM_FLAGS STRUCTURE PREFIX FLGS$; 


CTERM bitfield mask; /* cterm protocol is running 
CTRL_CY bitfield mask; /* flushing due to “C or 
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15-SEP-1984 22:49:32 
CTRL_O bitfield mask; /* peneres 0 state 
LOGGING bitfield mask; /*L oaging © out ut 
VAXHOST bitfield mask; /* H 
CTRLC bitfield mask; /* oot Zonderd i 


/* FLAGS DEFINED IN ‘'RTPADSLOG"’ 
AGGREGATE RTLOG_DBGFLAGS STRUCTURE PREFIX RILOGS; 


BANNER bitfield mask; /* protocol banne 
TRACE bitfield mask; /* enable tracing. to RTPADSTRACE 
END; 
/e 
i Event Flags 
CONSTANT g 
LINKEFN /* NET LINK 
) EQUALS 1 INCREMENT 1 PREFIX RTS TAG C; 
END_MODULE; 


MODULE SRTEDEF; 
AGGREGATE RTE_BLOCK STRUCTURE PREFIX RTES: 


CONSTANT buflen EQUALS 80 TAG ‘'c’'; { Maximum message size 
flink ADDRESS; /* forward Link 


btink ADDRESS; /* backward Link 
size WORD unsigned: /* size of structure 
spare WORD; /* spore byte 

iosb /* 10S 


QUADWORD gigne 
buf CHARACTER “TEN TH 4b: /* must match buflen above 
— Length EQUALS . TAG ‘'c"’; 


END_MODULE; 
15-SEP-1984 $3:07 19.39 
15-SEP-1984 22:49:32 
MODULE STSADEF; 
CONSTANT ( 
bind, bind request 
unbind, unbind request 
rebind, reine request 
accept, bind accept 
entermode, enter mode 
exitmode, exit mode 
confira, confirm mode 
e, no mode 
Sete data sore message) 


; nofee Ssage 
) EQUALS 1 INCREMENT 1 PREFIX ‘PRO TAG c™; 
AGGREGATE oob STRUCTURE PREFIX oob TAG ‘”’; 
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114 RT| 
115 Len exclude LONGWORD TAG ‘”'; /* Lengths are not used vO 
118 exclude LONGWORD TAG ‘"'; 
11 Len_include LONGWORD TAG ‘"'; 3 
11 include LGNGWORD TAG ‘"'; 3 
11 len_abort LONGWORD TAG ‘"'; 3 
1 abort LONGWORD TAG ‘"'; $ 
121 discard LONGWORD TAG ‘"'; /* discard output mask ; 
1 ¢ echo LONGWORD TAG ‘""; /* standard echo mask ; 
1 CONSTANT len EQUALS . TAG '”’; ; 
' 4 END; : 
1 $ /* : 
1 /* Unbind reason codes $ 
56" 
130 CONSTANT ( : 
131 bedvers, incompatible version $ 
1 ¢ noport, no portal available : 
1 user, user requested unbind (logout) : 
1 disconnect, disconnect (setmode hangup) $ 
135 unusedi, 3 
1 unused2, ; 
1 proterr { protocol error ; 
: 3 ) EQUALS 1 INCREMENT 1 PREFIX ‘‘unbind$'’ TAG ‘'c’’; ‘ 
140 AGGREGATE cterm STRUCTURE PREFIX ctp$ ; /* cterm packet ; 
142 /* Up to DATSIZE matches RITDRIVER RBF header : 
144 flink LONGWORD; /* forward Link : 
145 blink LONGWORD; /* backward Link F 
168 size WORD; /* size of structure 3 
14 type BYTE; /* DYN code (BUFIO) 3 
148 spare! BYTE; /* spare byte ’ 
149 msgdat LONGWORD; /* message address ; 
150 usrbfr LONGWORD; /* user buffer F 
151 datsize WORD; /* data size 3 
136 irp LONGWORD; /* address of associated IRP 3 
137 ji LONGWORD; /* address of associated JIB ; 
15-SEP-1984 33:07:19.39 Spl v2.0 Page 5 ; 
15-SEP-1984 22:49:32 -$255$DUA28: CRTIPAD.SRCIRTDEF SDL; 1 3 
155 spare LONGWORD; /* spare for RTPAD? 3 
138 spare LONGWORD; /* spare for RTPAD? : 
138 #header = .; ; 
199 /* start of protocol message : 
16 ro_msgt BYTE; /* Protocol message type : 
168 provtill BYTE: 7* Protocol fill 
192 /* start of cterm data packet ; 
189 msgsize WORD; /* Length of first message ; 
168 #header2 = .; : 
1%6 msgtype BYTE; /* message type : 
He CONSTANT ( 
17 


init, { Initiate (H <---> §) 
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start_rd, 
read data, 
out _bdand, 
hg 
clr_input, 
write, 
write _com, 
dis_sfate, 


np_count, 
inp_state, 
vmsqio, 
vms_brdcst, 


Start Read (H ===> $) 
Read Data (H <--- 5§) 
Out-of-Band (H <=-= 5§) 
Unrea (H ===> S$) 
siger Input (H ===> §$) 
Write (H ===> §$) 
Write Completion (H <=-= §) 
Discard State (H <=-= §) 
Read Characteristics (H <---> S$) 
Characteristics (H <---> §) 
Check Input (H ===> §) 
Input Count (H <#-= §) 
neue State (H <--- §) 
VMS specific Q10 (H <---> §) 
VMS spec oregstees (H <=-- 5§) 
VMS spec read verify (H <---> $) 


vms_readv t ) 
EQUALS T INCREMENT 1 TAG ‘'c_mt'’; 


/* 
/* 
/t 
/t 
/t 
/t 
/t 


no flags defined 
of wees version number 

CO number for protocol 
customer modification number 
software revision number 
urpose of the following value 
yte count 


/e 
. Remainder of block overlaid based on value of msgtype: 
msgfields UNION; 
/e 
- imit message structure (H <---> S$) 
init STRUCTURE; 
* $s BYTE; 
in_version BYTE; 
in eco BYTE; 
no BYTE; 
in revision CHARACTER LENGTH 8; 
in_parmtype BYTE; 
in_parmva BYTE; 
CONSTANT Len EQUALS . TAG ‘’c_in’’; 


CONSTANT msglen EQUALS .-#header TAG "'c_in 
CONSTANT prolen EQUALS .-#header2 TAG ‘t_i 


END init; 


/t 


. start read and read verify structure (H <---> S) 


start_ed STRUCTURE; 

sr flags overlay union fill; 
sr_flags § 

sr_flag_bits structure : 

flo BITFIELD LENGTH 2; 


Sr_under 
CONST 


sf_purge 8 
sr_format 8 
sr_travert 6B 


/* Flags 
haracter length 3 TAG "'L"’; 


/ 
/t 


for 
® 


/* Length of structure 
7,/* length of structure minus header 
:/* length of structure minus header 


unread 
3 bytes of flags 


- underflow handling 


-- ignore underflow 
-- ring beil on underflow 
-- terminate on underflow 


- purge type ahead 
- formatting flag 
- terminate on vertical 
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SF 
ai teeeee BITFIELD MASK; /* = continuation read 


ot yh lov yoy FF IELD LENGTH 2; /* = raise input 
no_cvt, -- use ye pee ~ Yeti 
noe onl ° == none 


ours 14 ; ,£ => Normal lower to upper 
EQUALS INCREMENT 1 TAG ‘'c_sr"’; 

CONSTANT no_cvt EQUALS cEp$c_sr_no_cvta#shift TAG ‘Mm sr” 
CONSTANT nofe_only EQUALS ctp$c_sr_none cont yaeehi te TAG nage" 3 
CONSTANT lowt6up EQUALS ctp$c_sr_lowtGupaashift TAG ‘'m_sr’’; 


@shift = 
sr control Bl BITFIELD LENGTH 3; /* = disable control 
sg BM == no contret gintrecsers disabled 
u.and_r, =-- “U and * 
edit, -- all ~ in control characters 
| ap oo ot but XON/XOFF 
rs sos 
EQUALS 0 INCREMENT 1 TAG ‘'c_sr*’ 
CONSTANT no_ctrl EQUALS ctpSc. st -no_ctrla#shift TAG ‘msr' 
CONSTAN nd_.r EQUALS ctp$c_sr_u_and_ra@shift TAG ‘'m_sr''; 
CONSTANT edit EQUALS ctp$c_sr_edita¥shift TAG ‘‘m-sr''; 
pase Lal allbutx EQUALS ctp$c_sr_allbutxadshift oe *‘m_sr''; 
CONSTANT all EQUALS ctp$c_sr_alla#shift TAG ‘“‘m_sr''; 
sr_noecho BITFIELD MASK; 7* = no echo read 
sr_trmecho BITFIELD MASK; /* = terminator echo 
Brat ieee BITFIELD MASK; /* = read timeout 
s oy 
sr_ tern set pep trieee LENGTH 2; /* = termination set 
prevtern, -- use previous read terminators 
eeroserae. -- use this read terminators 


Me sr''s “= use normal terminators 
EQUALS O INCREMENT 1 TAG 
CONSTANT prevterm EQUALS ctpsc. Sr _prevterma#shift TAG wes 
CONSTANT thisterm EQUALS ctp$c_sr_thisterma#shift TAG ‘ms ; 
CONSTANT normterm wees ctp$c_ =f normtermaéshift TAG ‘'m “sr''s 


sr_noescape BITFIELD MA /® = don't recognize escape 

sr_escape BITFIELD MASK: /* = recognize escape 
15-SEP-1984 $3:07 19.39 
15-SEP-1984 22:49:32 


/* VMS specific bits follow 


sr_noedit BITFIELD MASK; /* 
sr_norecall BITFIELD MASK: /* 


end sr_flag_bits; 
end sr_flags_overlay; 


able editing 
able recall 


vw 


sr_max_len WORD; /t max length of read 
sr_end_data WORD; /* end of data in read buffer 
sr_timéout WORD; /* timeout value 

sr_end_prat WORD; /* end of prompt 

sr_str_disp WORD; /* start of display 
sr_lo_water WORD; /* low water mark 


TWO_READS structure 
“TWO_READS VOVERLAY union fill; 


<2 
= 
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sr_term CHARACTER LENGTH 1; /* termination set (byte counted field) 


LF 
/* read data starting position (after term set) 
CONSTANT Len EQUALS . TAG “c_sr"’; 


CONSTANT msglen EQUALS .-#header TAG "'c_sr'’ 
CONSTANT prolen EQUALS .-#header2 TAG ‘'t_ 


/* Length of structure 
j,/* length of structure minus header 
sr’'';/* Length of structure minus header 
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READ_VERIFY structure ; 


sr2_altechsize WORD UNSIGNED; /* alt echo size 

sré_picstrsize WORD UNSIGNED; /* picture string size 

sré_editflags WORD UNSIGNED; /* i tegs 

srée_fillchar WORD UNSIGNED; /* fill characters 

sro_term CHARACTER LENGTH 1; /* terminator set 

CONSTANT Len EQUALS . TAG ‘‘c_sr2"’; /* Length of structure 

CONSTANT msglen EQUALS .-#header TAG ‘'c_sr2''; /* Length of structure minus header 
4 ne Le ae EQUALS .-#header2 TAG ‘‘C_sr2''; /* Length of structure minus header 

en ; 


end TWO READS OVERLAY; 
end TWO_READS; 


END start_rd; 


/* 
i read data structure (H <--=- S) 


read_data STRUCTURE; 
ret ‘ops overlay union fill; 
rd_flags oe unsigned; 
rd_flag_bits structure fill; 
Fd_com code BITFIELD LENGTH 4; /t - 
CONSTANT ( 


/* Flags for 


overun ) : 
EQUALS 0 INCREMENT 1 TAG ‘m_rd"’; 
rd_mor data BITFIELD MASK; 
end fd_flag_bits; 
end rd. flags_over lay; 


°° = 


rd_lo_water WO /t 
rd_vert_cng BYTE; /* 
rd_curs_pos BYTE; /t 
rd_term_pos WORD; /* pos 
rd_data CHARACTER LENGTH 0; /* 


CONSTANT Len EQUALS . TAG ‘‘c_rd'’; ~ 
CONSTANT msglen EQUALS .-#header TAG ‘'c_ra’’: 


CONSTANT prolen EQUALS .-#header2 TAG "t_rd”; 


! 


DL V2.0 
$255$DUA28: CRTPAD.SRCIRTDEF .SDL 


unread 


completion code 


normal terminator 

valid escape 

invalid escape 

out of band 

input buffer full 

read timed out 

unread request received 
under f Low 

absentee token 

veritcal pest ition change 
Line brea 

rame error 

parity error 

receiver over-run 


more data in typeahead 


low water 
vertical change since read started 
cursor position from EOL 


tion of terminator 


start of read data 
/* length of structure 


/* length of structure minus header 
/* Length of structure minus header 


WAG 
wv 
Wr 


END read_data; 


Pa1oBe S2:40;g2  «— Bbs¥EsGaze:cRTPAD.SRCIRTDEF spin? 


/* 
A out of band structure (H <--=- S$) 
out_band STRUCTURE; 


ob_flags_overlay union fill; /* Flags for unread 
ob_ flags 1 unsigned; 
ob_flag_bits structure fill; 
ob_linebrk BITFIELD MASK; /* = Line break occured 
end ob_flag_bits; 
end ob_flags_overlay; 


WA. AAANII 
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WR OVDONOuUS 


5 
308 ob_char BYTE; /* one byte of data 
368 CONSTANT Len EQUALS . TAG ‘'c_ob"’; /* Length of structure 
369 CONSTANT msglen EQUALS .-#header TAG “cob''; /* Length of structure minus header 
359 CONSTANT prolen EQUALS .-#header2 TAG ‘'c_ob’'; /* Length of structure minus header 
3 END out_band; 
15-SEP-1984 23:07:19.39 SDL_V2.0 Page 
15-SEP-1984 22:49:32 -$255$DUA28: CRTPAD.SRCIRTDEF .SDL;1 
ae /* 
75 /* unread structure (H ===> S) 
376 /* 
$0 unread STRUCTURE; 
35 ur_flags_overlay union fill; /* Flags for unread 
380 ur_flagse byte unsigned; 
381 ur_flag_bits structure fill; 
Ba ur_cond BITFIELD MASK; /* = unread conditional 
8 end ur_flag_bits; 
f end ur_flags_overlay; 
CONSTANT Len EQUALS . TAG ‘‘c_ur'’; /* Length of structure 
387 CONSTANT msglen EQUALS .-#header TAG ‘'c_ur'’; /* Length of structure minus header 
$80 CONSTANT prolen EQUALS .-#header2 TAG ‘‘c_ur’'; /* Length of structure minus header 
390 END unread; 
15-SEP-1984 23:07:19.39 SDL_V2.0 Page 
15-SEP-1984 22:49:32 -$255$DUA28: CRTPAD.SRCIRTDEF .SDL;1 
/t 
. clear input structure (H ===> S$) 
clr -input STRUCTURE; 
ci_flags YTE; /* no flags defined 
CONSTANT Len EQUALS . TAG "‘c_ci"’; /* length of structure 


CONSTANT msglen EQUALS .-#header TAG "'c_ci''; /* Length of structure minus header 
CONSTANT prolen EQUALS .-#header2 TAG ‘‘c_ci''; /* length of structure minus header 


END clr_input; 
15-SEP-1984 23:07:19.39 SDL V2.0 Page 
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/* 
. write structure (H ===> S) 


write STRUCTURE; 
ad hg got union fill; 
wr_flags word unsigned; 
wr_flag_bits structure 


/« Flags for 


fill; 
LENGTH 2; 


wr_lock BITFIELD /t - 
CONSTANT ( 
noaction, § -- 
before, =o 
befaft, ; -- 
Pee ice ) -- 
EQUALS 0 INCREMENT 1 TAG ‘‘m_wr''; 
wronewline BITFIELD MASK; /t- 
wr discard BITFIELD MASK; /t - 
wr_begin BITFIELD MASK; /t - 
wr_en BITFIELD MASK; /t - 
#shift = *; 
wr_prefix BITFIELD LENGTH 2; /* - 
CONSTANT (¢ 
no_fix, { -- 
newlinecnt, { <= 
€ ar ee oe { on 
EQUALS 0 INCREMENT 1 TAG ‘‘c_wr'’; 
CONSTANT no_fix EQUALS ctpSc_wr_no_ 


N 7 
15-SEP-1984 22:49:32 ~-$255$DUA28: CRTPAD.SRCIRTDEF SDL; 1 


write 


Locking 


no locking action 

lock before, leave locked 

lock before, unlock after 

lock before, unlock after, redisplay 


VMS specific, newline modifier 
cancel “* 

pegtaa as of write 
end of write 
prefix code 

no prefix 

new Line count 
character prefix 


fixa#shift TAG ‘'m wr’ 


CONSTANT newlinecnt EQUALS SSP ur news logenteees) 1, TAG "'m_we''; 
wr’; 


CONSTANT char EQUALS gtp$c_ur chara#shift % 
wr_postfix BITFIELD LENGTH 2; 7* = postfix code 
wr status ITFIELD MASK; /* = return status 
wr transparent BITFIELD MASK; /* = write passall 
END wr_flag_bits; 
END wr flags_over lay: 
wr_pretix BYTE; /* prefix value 
wr_postfix BYTE; /* postfix value 
wr_data CHARACTER LENGTH 0; /* start of data 
CONSTANT Len EQUALS . TAG “‘c_wr'’; /* Length of structure 


CONSTANT msglen EQUALS .-#header TAG ‘'c_wr''; / 


CONSTANT prolen EQUALS .-#header2 TAG "‘t_wr 
END write; 


/* 
a write completion structure (H <--- S$) 


write_com STRUCTURE; 
we_flags_overlay union fill; 
we_flags byte unsigned; 
we flag_bi s structure fill; 
we_discard BITFIELD MASK; 
end we_flag_bits; 
end we_flags_overlay; 


/* Flags for 


/* = 


wc_horpos WORD; 
we_verpos WORD; 
CONSTANT Len EQUALS . TAG ‘‘c_we"’; 


* Length of structure minus header 
; /* Length of structure minus header 


v2.0 Pa 
5SDUA28: CRTPAD.SRCIRTDEF .SDL; 1 


unread 


discard state 


/* horizontal position 
/* vertical position 


/* Length of structure 


= = 
B 8 
46 CONSTANT msglen EQUALS .-#header TAG ‘'c_we''; /* Length of structure minus header wa 


ret CONSTANT prolen EQUALS .-#header2 TAG ‘‘tC_wc''; /* Length of structure minus header V 
ret END write_com; : 
15-SEP=1984 23:07:19.39  SDL_v2.0 Page 15 ; 
15-SEP-1984 $3 49:32 *$95$$5UA28:CRTPAD.SRCIRTDEF .SDL-9° ; 
467 /* ; 
468 /* discard state structure (H <--- §) : 
469 /* : 
470 dis_state STRUCTURE; : 
471 ds Caps over lay union fill; /* Flags for unread $ 
47 ds_flags byte unsigned; — F 
47 ds flag_bi s structure fill; ; 
474 Gs_diScard BITFIELD MASK; /* = discard state : 
475 end ur_flag_bits; A 
ore end ur_flags_overlay; ‘ 
478 CONSTANT Len EQUALS ._ TAG "‘c_ds"’; /* Length of structure | 
479 CONSTANT msglen EQUALS .-#header TAG ‘'c_ds''; /* Length of structure minus header ; 
aay CONSTANT prolen EQUALS .-#header2 TAG ‘'c_ds'; /* length of structure minus header . 
rt END dis_state; : 
15-SEP-1984 23:07:19.39 SDL _V2.0 Page 16 ; 
15-SEP-1984 22:49:32 -$255$DUA28: CRTPAD.SRCIRTDEF .SDL;1 ° 
484 /* ; 
re + fe read characteristics structure (H ===> S) : 
487 read_char STRUCTURE; ; 
488 rc_flags 3 /* no flags defined : 
ret rc_selector WORD; /* selector start position : 
491 CONSTANT Len EQUALS . TAG ‘‘c_rc'’; /* length of structure | ; 
492 CONSTANT msglen EQUALS .-#header TAG ‘'c_rc'’; /* Length of structure minus header : 
re CONSTANT prolen EQUALS .-#header2 TAG ‘'c_rc’'; /* Length of structure minus header : 
‘32 END read_char; ; 
15-SEP-1984 23:07:19.39 SDL_v2.0 Page 17 ; 
15-SEP-1984 22:49:32 -$255$DUA28: CRTPAD.SRCIRTDEF .SDL;1 : 
497 /* 3 
498 /* characteristics structure (H <---> S$) : 
499 /* : 
500 char STRUCTURE; : 
501 ch_flags BYTE; /* no flags defined 3 
20g ch_paras WORD; /* start of characteristics 3 
504 ch_value CHARACTER LENGTH 0; /* value : 
05 CONSTANT Len _— EQUALS . TAG “‘c_ch"'; /* length of structure F 
506 CONSTANT msglen EQUALS .-#header TAG “cch''; /* Length of structure minus header F 
34 CONSTANT prolen EQUALS .-#header2 TAG ‘'c_ch’’; /* Length of structure minus header : 
#4 /* characteristics selector types : 
if CONSTANT ( ; 
sical, : 
iH Logical. 
14 cterm 
15 ) EQUALS 0 INCREMENT 1 PREFIX ‘'CHS" TAG C; 
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/* characteristics selectors, type = physical 


CONSTANT ( 
in_speed, 
out_speed, 
char_size, 
parity_enable, 
parity_type, 
modem_present, 
autobaud, 
manage _ guar, 
sweharl, 
swcehare, 
eightbit, 


manage_ena 
) EQUaCs 1 INCREMENT 1 PREFIX ‘'CHS$'' TAG ''C_PH"'; 
/* characteristics selectors, type = logical 


CONSTANT ( 
mode_writing, 
term_bits, 
term_type, 
output flow, 
page_stop, 
flow _char_pass, 
input_ flow, 
loss_notif, 
Line_width, 
page_length, 
stop_length, 
cr L 
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) EQUALS 1 INCREMENT 1 PREFIX ‘'CHS"' 


/* characteristics selectors, type = cterm 


CONSTANT ( 

pare input, = 

char_att, /* see tty_attributes, etc. below 

ctrlo_pass, 

raise_input, 

normal_echo, 

input_esc, 

output_esc, 

input_count, 

auto_prompt, 

error coress ing ‘ . 

) EQUALS 1 INCREMENT 1 PREFIX ‘'CHS'' TAG "'C_CT"; 
CONSTANT ( 

even, 


odd, 
clear, /* no support for set or clear on VMS 
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set 
) EQUALS 1 INCREMENT 1 PREFIX ‘'CHS'' TAG C_PARITY; 


tty_attributes STRUCTURE; 
ch known BITFIELD MASK; 
ch_scope BITFIELD MASK; 
end tty_attributes; 


oob_handling STRUCTURE; 
ch_oo bitfield mask Length 2; 
chi bitfield mask; 
ch_d bitfield mask; /* 
ch_ee bitfield mask length 2; /* 
bitfield mask; / 


ch_f 
end oob_handling; 
oenSate STRUCTURE; 


out of band handling 
include character 
discard oe a 

echo contro 

* special enable 


char BYTE; /* data character 


PUPA AAPA 
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/* mask for attributes 


ch_attr BYTE; /* attributes 


end oob_data; 


CONSTANT ( { = out of band flags 
cancel, { -- cancel previous 0 
iclear, { =-- immediate clear 1 
cclear { -- deferred clear 2 
hello . , € == hello 3 

EQUALS 0 INCREMENT 1 TAG ‘'c_ch’’; 

CONSTANT ( { echo control 
echonone, { -- don't echo 
echoself, { -- echo character as self 
echostandard, { -- standard echo 

{ -- echo both 
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Ronen Nnonuns 
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echoboth ) 
EQUALS 0 INCREMENT 1 TAG ‘'c_ch''; 


END char; 


/* 

Me check input structure (H --=> S) 

check - STRUCTURE; 
ck_flags BYT 


CONSTANT Len EQUALS . TAG “‘c_ck*'; 


/* no flags defined 
/* length of structure 


CONSTANT msglen EQUALS .-#header TAG “c_ck''; /* Length of structure minus header 
CONSTANT prolen EQUALS .-#header2 TAG ‘'c_ck’'; /* Length of structure minus header 


END check_inp; 


/ 

/ input count structure (H <--- S$) 
® 

inp_count STRUCTURE; 


Page 
A28:CRTPAD.SRCIRTDEF.SDL;1 


.0 Pa 
DUA28: CRTPAD.SRCIRTDEF.SDL;1 


on 13ee $3:02:13-39 +; ¥E0 Pa 
P=1984 22:49:32 -$255$DUA28: CRTIPAD.SRCIRTDEF .SDL; 1 


19 


20 


21 


PAPA AAAOO 
ONOULSWN—O 


o 
Ww 


RADAR ERE ERR ER 
BONAVESWN—O OONOULSWN—O”O 


AAA 
MMM 


$55 


Wwr—o0O 


E 8 
ic_flags BYTE; /* no flags defined 
ic count WORD; /* input count 


CONSTANT Len EQUALS . TAG ‘‘c_ic’’; /* length of structure 
CONSTANT msglen EQUALS .-#header TAG “tele /* Length of structure minus header 
CONSTANT prolen EQUALS .-#header2 TAG ‘'c_ic’'; /* length of structure minus header 


END inp_count; 
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/t 
oe input state structure (H <=--=- S$) 


inp_state STRUCTURE; 
is flags overlay union fill; /* Flags for unread 
Ts_flags byte unsigned; 
is_flag_bits structure fill; 
S.nonzero BITFIELD MASK; /* = count change to non-zero 
end 7s_flag_bits; 
end is_flags_overlay; 


CONSTANT Len EQUALS . TAG ‘'c_is"’; /* Length of structure 
CONSTANT msglen EQUALS .-#header TAG ‘'c_is'’; /* Length of structure minus header 
CONSTANT prolen EQUALS .-#header2 TAG ‘‘c_is''; /* Length of structure minus header 


END inp_state; 
/* 
A VMS Q10 REQUEST (H ===> S) 
® 


vms_flags_overlay union fill; /* Flags for unread 
vms_flags by 
vms_flag_bits structure fill; 
vms_useiosb BITFIELD MASK; /* use iosb to determine Length 
yms_readlen BITFIELD MASK; /* = read-type iosb buffer Length 


vms_reqid LONGWORD; /* qio request id 
vmsfields UNION; 
VMSREQ STRUCTURE; /* request 
vms_ func 3 /* qio function code 
vms_plen WORD; /* these four are repeated... 
vms_pcode WORD; /* for each parameter 
vms_pf lags STRUCTURE TAG W; /* 
vms_ref BITFIELD MASK; /* = pass by reference 
vms_item BITFIELD MASK; /* = item List or 
vas bul ise BITFIELD MASK; /* = this is return buffer 
vms-fill2  BITFIELD LENGTH 16-*; /* = fili to 1 word 


flags; 
vms_pdata - PHARACTER LENGTH 0; /* value 


CONSTANT Len EQUALS . TAG ‘'c_vms"’; /* length of structure 
CONSTANT msglen EQUALS .-#header TAG “'c_vms''; /* Length of structure minus header 
a Lg ad prolen EQUALS .-#header2 TAG ‘'C_vms''; /* length of structure minus header 


VMSRESP STRUCTURE; 
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690 vms_iosb QUADWORD; /* jiosb 
691 vms rdata CHARACTER LENGTH 6; /* start of data 
24 END VMSRESP; ‘ 
694 END vmsfields; ; 
695 : 
15-SEP-1984 23:07:19.39  SDL_v2.0 Page 23 ; 
eet 33:05:43 *$55$$5UA28:CRTPAD. SRCIRTDEF .SDL <7” 2 
£38 END vmsqio; ; 
15-SEP-1984 $3 07:19.39 $0 Hf hy Page 24 : 
15-SEP-1984 22:49:32 ~$255$DUA28: CRTPAD. SRCIRTDEF .SDL;1 ‘ 
698 /* 3 
$98 . upline broadcast (H <--= S$) : 
701 broadcast STRUCTURE; : 
70 r_flags WORD UNSIGNED; /* no flags defined : 
70 br_msgcode WORD UNSIGNED; /* mailbox message code ‘ 
704 br_unitnum WORD UNSIGNED; /* unit number ; 
705 br _devname CHARACTER LENGTH 16; /* device name : 
706 br_msglen WORD : /* Length of text ; 
aid br_msgtxt CHARACTER LENGTH 0; /* start of text ‘ 
709 CONSTANT Len EQUALS . TAG ‘'c_br"’; /* Length of structure : 
710 CONSTANT msglen EQUALS .-#header TAG “cbr''; /* Length of structure minus header : 
ap CONSTANT prolen EQUALS .-#header2 TAG ‘'c_br''; /* Length of structure minus header 
at END broadcast; 
fn? END msgfields; /* end of protocol messages 
717 ~=S END cterm; 
19 
15-SEP-1984 $3:07 19.39 SDL V2.0 Page 25 
15-SEP-1984 22:49:32 -$255$DUA28: CRTPAD.SRCIRTDEF .SDL; 1 
721 AGGREGATE VMSQIO STRUCTURE PREFIX vms$; 
7 § plen WORD; /* these four are repeated... 
7 pflags WORD; /* eee 
724 pcode WORD; /* ... for each parameter 
5 pdata CHARACTER LENGTH 0; /* value 
; END; /* VMSQIO 
729  END_MODULE; 
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